home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / 3d_vb / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  3.3 KB  |  98 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Form2"
  6.    ClientHeight    =   4020
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   5925
  10.    ControlBox      =   0   'False
  11.    Height          =   4425
  12.    Left            =   1035
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4020
  18.    ScaleWidth      =   5925
  19.    Top             =   1140
  20.    Visible         =   0   'False
  21.    Width           =   6045
  22.    Begin CommandButton Command1 
  23.       Caption         =   "OK"
  24.       Height          =   375
  25.       Left            =   2280
  26.       TabIndex        =   0
  27.       Top             =   3480
  28.       Width           =   1455
  29.    End
  30.    Begin PictureBox Picture1 
  31.       BackColor       =   &H00C0C0C0&
  32.       BorderStyle     =   0  'None
  33.       Height          =   855
  34.       Left            =   2520
  35.       ScaleHeight     =   855
  36.       ScaleWidth      =   3135
  37.       TabIndex        =   1
  38.       Top             =   240
  39.       Width           =   3135
  40.    End
  41.    Begin Label Label1 
  42.       BackColor       =   &H00C0C0C0&
  43.       Height          =   1815
  44.       Left            =   240
  45.       TabIndex        =   2
  46.       Top             =   1440
  47.       Width           =   5415
  48.    End
  49. Dim CR$
  50. Sub Command1_Click ()
  51. Form2.Line (0, 0)-(Form2.ScaleWidth, Form2.ScaleHeight), &HC0C0C0, BF
  52. Unload Form2
  53. End Sub
  54. Sub Form_Load ()
  55. CR$ = Chr$(10) + Chr$(13)
  56. Screen.MousePointer = 11
  57. Select Case Action
  58. Case 4
  59.     Form2.Caption = "3-D4VB"
  60.     Form2.AutoRedraw = True
  61.     FormBorder Form2
  62.     EtchedFrmText Form2, "This is FormBorder", 200, 200, BLUE
  63.     BorderBoxOnFrm Label1, Form2
  64.     Form2.AutoRedraw = False
  65.     Picture1.AutoRedraw = True
  66.     LabelInBox Picture1, "3-D4VB is AOK!", 2, 1, BLUE, RAISED
  67.     ShadowPicFrame Picture1, 1
  68.     Text$ = "More than 20 functions included and more on the way!"
  69.     Text$ = Text$ + " Make your programs look great!"
  70.     Text$ = Text$ + " At less than $.50 a routine, 3-D4VB won't cost you an arm and a leg either! It's almost free..."
  71.     Text$ = Text$ + " It's sure to save you hours of time and effort." + CR$
  72.     Label1.Caption = Text$
  73.     Picture1.FontSize = 18
  74.     Picture1.AutoRedraw = False
  75. Case 11
  76.     Form2.Caption = "3-D4VB"
  77.     Form2.AutoRedraw = True
  78.     RaisedFormEdge Form2
  79.     Picture1.FontSize = 18
  80.     EtchedFrmText Form2, "This is Raised Form Edge", 200, 200, BLUE
  81.     BorderBoxOnFrm Label1, Form2
  82.     Form2.AutoRedraw = False
  83.     Picture1.AutoRedraw = True
  84.     LabelInBox Picture1, "3-D4VB is AOK!", 2, 1, BLUE, RAISED
  85.     ShadowPicFrame Picture1, 1
  86.     Text$ = "3-D4VB includes routines to make your own button controls with any icon or "
  87.     Text$ = Text$ + " bitmap you want to use. All routines can be modified to suit your taste!" + CR$ + CR$
  88.     Text$ = Text$ + "Send your check for $10.00 to:" + CR$
  89.     Text$ = Text$ + "     LAN Services" + CR$
  90.     Text$ = Text$ + "     219-P Berlin Road, Suite 261" + CR$
  91.     Text$ = Text$ + "     Cherry Hill, New Jersey  08034" + CR$
  92.     Text$ = Text$ + "     (609) 428-3633"
  93.     Label1.Caption = Text$
  94.     Picture1.AutoRedraw = False
  95. End Select
  96. Screen.MousePointer = 0
  97. End Sub
  98.